inherited frmServiceTraitsSet: TfrmServiceTraitsSet
  Width = 307
  Height = 168
  Caption = #1044#1086#1073#1072#1074#1083#1077#1085#1080#1077' '#1087#1088#1080#1079#1085#1072#1082#1072' '#1085#1072' '#1091#1089#1083#1091#1075#1091
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 8
    Top = 8
    Width = 87
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1059#1089#1083#1091#1075#1072
  end
  object dbeServiceName: TDBText [1]
    Left = 102
    Top = 8
    Width = 181
    Height = 17
    DataField = 'NAME'
    DataSource = sprServices.dscRefer
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
  end
  object Label2: TLabel [2]
    Left = 8
    Top = 34
    Width = 87
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1055#1088#1080#1079#1085#1072#1082
  end
  object Label3: TLabel [3]
    Left = 8
    Top = 60
    Width = 87
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1053#1072#1095#1072#1083#1086' '#1076#1077#1081#1089#1090#1074#1080#1103
  end
  object Label4: TLabel [4]
    Left = 8
    Top = 86
    Width = 87
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #1050#1086#1085#1077#1094' '#1076#1077#1081#1089#1090#1074#1080#1103
  end
  inherited Panel1: TPanel
    Top = 114
    Width = 299
    inherited BitBtn1: TBitBtn
      Left = 92
    end
    inherited BitBtn2: TBitBtn
      Left = 194
    end
  end
  inherited ToolBar1: TToolBar
    Width = 299
    Height = 0
  end
  object dblcTraitsList: TDBLookupComboboxEh [7]
    Left = 102
    Top = 30
    Width = 181
    Height = 19
    AlwaysShowBorder = True
    DataField = 'TRAIT_ID'
    EditButtons = <>
    Flat = True
    KeyField = 'ID'
    ListField = 'TRAITNAME'
    ListSource = dscTraitsList
    TabOrder = 2
    Visible = True
  end
  object dbtBdate: TDBDateTimeEditEh [8]
    Left = 102
    Top = 56
    Width = 85
    Height = 19
    AlwaysShowBorder = True
    DataField = 'BDATE'
    EditButtons = <>
    Flat = True
    Kind = dtkDateEh
    TabOrder = 3
    Visible = True
  end
  object dbtEdate: TDBDateTimeEditEh [9]
    Left = 102
    Top = 82
    Width = 85
    Height = 19
    AlwaysShowBorder = True
    DataField = 'EDATE'
    EditButtons = <>
    Flat = True
    Kind = dtkDateEh
    TabOrder = 4
    Visible = True
  end
  inherited ActionList1: TActionList
    Left = 198
    Top = 62
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  object dsTraitsList: TpFIBDataSet
    SelectSQL.Strings = (
      'select srt.id, srt.traitname'
      'from service_traits srt')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    Left = 238
    Top = 56
  end
  object dscTraitsList: TDataSource
    DataSet = dsTraitsList
    Left = 268
    Top = 56
  end
end
